(display-time-string-forms): Add help-echo with date on time.

diff --git a/lisp/time.el b/lisp/time.el
index ba1b66f8a729309ca552b0e6a23af149f0ebbbff..a4c5f97ac98c64348119f329338c72066f64c80a 100644 (file)
--- a/lisp/time.el
+++ b/lisp/time.el
@@ -173,9 +173,11 @@ depend on `display-time-day-and-date' and `display-time-24hr-format'."
   '((if (and (not display-time-format) display-time-day-and-date)
        (format-time-string "%a %b %e " now)
       "")
-    (format-time-string (or display-time-format
-                           (if display-time-24hr-format "%H:%M" "%-I:%M%p"))
-                       now)
+    (propertize
+     (format-time-string (or display-time-format
+                            (if display-time-24hr-format "%H:%M" "%-I:%M%p"))
+                        now)
+     'help-echo (format-time-string "%s %b %e, %Y" now))
     load
     (if mail
        ;; Build the string every time to act on customization.